﻿Public Class frmMySQLConexao

    Private Sub ButtonCancelar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonCancelar.Click
        Me.Close()
    End Sub

    Private Sub frmMySQLConexao_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        TextBoxIpHost.Text = My.Settings.MySQLIpHost
        TextBoxUsuario.Text = My.Settings.MySQLUsuario
        TextBoxSenha.Text = My.Settings.MySQLSenha
        TextBoxPorta.Text = My.Settings.MySQLPorta

    End Sub

    Private Sub ButtonLimpar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonLimpar.Click
        TextBoxIpHost.Clear()
        TextBoxUsuario.Clear
        TextBoxSenha.Clear()
        TextBoxPorta.Clear()
    End Sub

    Private Sub ButtonConectar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonConectar.Click
        My.Settings.MySQLIpHost = TextBoxIpHost.Text
        My.Settings.MySQLUsuario = TextBoxUsuario.Text
        My.Settings.MySQLSenha = TextBoxSenha.Text
        My.Settings.MySQLPorta = TextBoxPorta.Text
        My.Settings.Save()
        Dim MySQLTestar As New MySQLConexao


    End Sub
End Class